home *** CD-ROM | disk | FTP | other *** search
/ Aminet 2 / Aminet AMIGA CDROM (1994)(Walnut Creek)[Feb 1994][W.O. 44790-1].iso / Aminet / dev / e / amigae21b.lha / Amiga_E_v2.1b / Sources / Utilities / Mem.e < prev    next >
Text File  |  1992-09-02  |  548b  |  22 lines
  1. /* A very small util to dump memory in a shell.
  2.    usage: MEM <adr>                                    */
  3.  
  4. DEF adr,a,b,radr:PTR TO LONG,c,r
  5.  
  6. PROC main()
  7.   adr:=Val(arg,{r})
  8.   IF r=0
  9.     WriteF('Usage: MEM <adr>\n')
  10.   ELSE
  11.     adr:=adr AND -2     /* no odd adr */
  12.     FOR a:=0 TO 7
  13.       radr:=a*16+adr
  14.       WriteF('$\r\z\h[8]:   ',radr)
  15.       FOR b:=0 TO 3 DO WriteF('\r\z\h[8] ',radr[b])
  16.       WriteF('  "'); c:=radr
  17.       FOR b:=0 TO 15 DO Out(stdout,IF (c[b]<32) OR (c[b]>126) THEN "." ELSE c[b])
  18.       WriteF('"\n')
  19.     ENDFOR
  20.   ENDIF
  21. ENDPROC
  22.